home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / CopyMem_Speed.asc < prev    next >
Text File  |  1980-03-03  |  767b  |  34 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Copy Mem 
  13. '
  14. 'Teste de vitesse de la commande 'Copy Mem'
  15. A$="CIERP Philippe"
  16. B$=String$(Chr$(0),Len(A$))
  17. E=Execall(-138)
  18. '
  19. 'Version IntuiExtend.lib 
  20. Timer=0
  21. For T=0 To 50000
  22. Copy Mem Varptr(A$),Len(A$) To Varptr(B$)
  23. Next T
  24. Print "IntuiExtend:";Timer
  25. '
  26. 'Version Amos
  27. Timer=0
  28. For T=0 To 50000
  29. Copy Varptr(A$),Varptr(A$)+Len(A$) To Varptr(B$)
  30. Next T
  31. Print "AMOS       :";Timer
  32. '
  33. E=Execall(-132)
  34.